home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 18 / CU Amiga Magazine's Super CD-ROM 18 (1997)(EMAP Images)(GB)[!][issue 1998-01].iso / CUCD / Programming / AmigaE / Src / Tools / EasyGUI / Examples / iconify_test.e < prev    next >
Encoding:
Text File  |  1997-10-07  |  803 b   |  34 lines
  1. MODULE 'tools/exceptions',
  2.        'tools/easygui',
  3.        'other/split',
  4.        'plugins/iconify'
  5.  
  6. PROC main() HANDLE
  7.   DEF args:PTR TO LONG, p=NIL:PTR TO iconify
  8.   IF args:=argSplit()
  9.     IF args[]
  10.       PrintF('Using the icon for "\s"\n',args[])
  11.     ELSE
  12.       PrintF('Using default icon (try "sys:tools/CMD" as an argument)\n')
  13.     ENDIF
  14.     NEW p.iconify('Iconify',args[],'Hello',TRUE)
  15.     easyguiA('GadTools in EasyGUI!',
  16.       [ROWS,
  17.         [TEXT,'Iconify test...',NIL,TRUE,1],
  18.         [SPACE],
  19.         [PLUGIN,0,p,TRUE],
  20.         [SPACE],
  21.         [BUTTON,{toggle_enabled},'Toggle Enabled',p]
  22.       ])
  23.   ELSE
  24.     PrintF('Bad arguments: specify a filename\n')
  25.   ENDIF
  26. EXCEPT DO
  27.   END p
  28.   report_exception()
  29. ENDPROC
  30.  
  31. PROC toggle_enabled(p:PTR TO iconify,i)
  32.   p.setdisabled(p.disabled=FALSE)
  33. ENDPROC
  34.